-- background: 2697 from stack: in.1
-- bmap block id: 2296
-- flags: 4000
-- background id: 0
-- name: 
----- HyperTalk script -----
on openBackground
  push recent card
end openBackground




-- part 1 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=12 top=233 right=264 bottom=55
-- title width / last selected line: 0
-- icon id / first selected line: 10610 / 10610
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: dial phone
----- HyperTalk script -----
on mouseUp
  get the selection
  if it is empty then get the message
  if it is empty then ask "Dial what number?"
  if it is not empty then
    push this card
    visual effect zoom open
    go to stack "Phone"
    dial it
    pop card
  end if
end mouseUp



-- part 8 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=30 top=128 right=220 bottom=454
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Comments


-- part 4 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=33 top=89 right=107 bottom=177
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 4
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Date


-- part 11 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=176 top=89 right=107 bottom=242
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 4
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Time


-- part 25 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=90 top=233 right=264 bottom=127
-- title width / last selected line: 0
-- icon id / first selected line: 15972 / 15972
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: go to calendar
----- HyperTalk script -----
on mouseUp
  closeAlarms
  get the seconds
  convert it to dateItems
  put ((item 1 of it) - 1987) *2 into whichSix
  if item 2 of it > 6 then add 1 to whichSix
  visual effect zoom open
  if whichSix < 1 then go card 1 of stack "Datebook"
  else if whichSix > 5 then go card 5 of stack "Datebook"
  else
    go to card whichSix of stack "Datebook"
    send "bracketWeek" && the seconds to this card
  end if
end mouseUp



-- part 26 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=378 top=240 right=264 bottom=405
-- title width / last selected line: 0
-- icon id / first selected line: 1014 / 1014
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseUp
  visual effect barn door open very fast to gray
  go to previous card
end mouseUp



-- part 27 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=407 top=240 right=264 bottom=440
-- title width / last selected line: 0
-- icon id / first selected line: 1013 / 1013
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
  visual effect barn door open very fast to gray
  go to next card
end mouseUp



-- part 28 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=54 top=233 right=264 bottom=91
-- title width / last selected line: 0
-- icon id / first selected line: 3430 / 3430
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Address
----- HyperTalk script -----
on mouseUp
  closeAlarms
  get the selection
  visual effect zoom open
  go to "Address"
  if it is not empty then find it
end mouseUp



-- part 39 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=469 top=240 right=264 bottom=500
-- title width / last selected line: 0
-- icon id / first selected line: 1012 / 1012
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Return
----- HyperTalk script -----
on mouseUp
  closeAlarms
  visual effect iris close
  pop card
end mouseUp



-- part 47 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=126 top=233 right=264 bottom=158
-- title width / last selected line: 0
-- icon id / first selected line: 21700 / 21700
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
  closeAlarms
  visual effect iris open
  go Home
end mouseUp



-- part 48 (field)
-- low flags: 80
-- high flags: 0000
-- rect: left=477 top=52 right=329 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name: Checks


-- part 49 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=413 top=44 right=56 bottom=436
-- title width / last selected line: 0
-- icon id / first selected line: 16692 / 16692
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Month+
----- HyperTalk script -----
on mouseDown
  put 1 into count
  get field AlarmTime
  convert it to dateItems
  repeat until the mouse is up
    put item 2 of it into NewMonth
    add 1 to NewMonth
    if NewMonth > 12 then put 1 into NewMonth
    put NewMonth into item 2 of it
    put it into NewDate
    convert NewDate to abbrev Date
    put NewDate into field Date
    put it into NewTime
    convert NewTime to short time
    put NewTime into field Time
    add 1 to count
  end repeat
  convert it to seconds
  put it into field AlarmTime
  checkAlarm
end mouseDown



-- part 52 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=435 top=44 right=56 bottom=456
-- title width / last selected line: 0
-- icon id / first selected line: 3584 / 3584
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Month-
----- HyperTalk script -----
on mouseDown
  put 1 into count
  get field AlarmTime
  convert it to dateItems
  repeat until the mouse is up
    put item 2 of it into NewMonth
    subtract 1 from NewMonth
    if NewMonth <= 0 then put 12 into NewMonth
    put NewMonth into item 2 of it
    put it into NewDate
    convert NewDate to abbrev Date
    put NewDate into field Date
    put it into NewTime
    convert NewTime to short time
    put NewTime into field Time
    add 1 to count
  end repeat
  convert it to seconds
  put it into field AlarmTime
  checkAlarm
end mouseDown



-- part 53 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=414 top=60 right=72 bottom=437
-- title width / last selected line: 0
-- icon id / first selected line: 16692 / 16692
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Day+
----- HyperTalk script -----
on mouseDown
  put 1 into count
  get field AlarmTime
  convert it to seconds
  repeat until the mouse is up
    add (60*60*24) to it
    put it into NewDate
    convert NewDate to abbrev Date
    put NewDate into field Date
    put it into NewTime
    convert NewTime to short time
    put NewTime into field Time
    add 1 to count
  end repeat
  convert it to seconds
  put it into field AlarmTime
  checkAlarm
end mouseDown



-- part 54 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=415 top=77 right=89 bottom=438
-- title width / last selected line: 0
-- icon id / first selected line: 16692 / 16692
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Year+
----- HyperTalk script -----
on mouseDown
  put 1 into count
  get field AlarmTime
  convert it to dateItems
  repeat until the mouse is up
    add 1 to item 1 of it
    put it into NewDate
    convert NewDate to abbrev Date
    put NewDate into field Date
    put it into NewTime
    convert NewTime to short time
    put NewTime into field Time
    add 1 to count
  end repeat
  convert it to seconds
  put it into field AlarmTime
  checkAlarm
end mouseDown



-- part 55 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=415 top=93 right=105 bottom=438
-- title width / last selected line: 0
-- icon id / first selected line: 16692 / 16692
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Hour+
----- HyperTalk script -----
on mouseDown
  put 1 into count
  get field AlarmTime
  convert it to dateItems
  repeat until the mouse is up
    add 1 to item 4 of it
    if item 4 of it > 23 then
      put 0 into item 4 of it
    end if
    put it into NewDate
    convert NewDate to abbrev Date
    put NewDate into field Date
    put it into NewTime
    convert NewTime to short time
    put NewTime into field Time
    add 1 to count
  end repeat
  convert it to seconds
  put it into field AlarmTime
  checkAlarm
end mouseDown



-- part 56 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=436 top=60 right=72 bottom=457
-- title width / last selected line: 0
-- icon id / first selected line: 3584 / 3584
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Day-
----- HyperTalk script -----
on mouseDown
  put 1 into count
  get field AlarmTime
  convert it to seconds
  repeat until the mouse is up
    subtract (60*60*24) from it
    put it into NewDate
    convert NewDate to abbrev Date
    put NewDate into field Date
    put it into NewTime
    convert NewTime to short time
    put NewTime into field Time
    add 1 to count
  end repeat
  convert it to seconds
  put it into field AlarmTime
  checkAlarm
end mouseDown



-- part 57 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=437 top=77 right=89 bottom=458
-- title width / last selected line: 0
-- icon id / first selected line: 3584 / 3584
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Year-
----- HyperTalk script -----
on mouseDown
  put 1 into count
  get field AlarmTime
  convert it to dateItems
  repeat until the mouse is up
    subtract 1 from item 1 of it
    put it into NewDate
    convert NewDate to abbrev Date
    put NewDate into field Date
    put it into NewTime
    convert NewTime to short time
    put NewTime into field Time
    add 1 to count
  end repeat
  convert it to seconds
  put it into field AlarmTime
  checkAlarm
end mouseDown



-- part 58 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=437 top=93 right=105 bottom=458
-- title width / last selected line: 0
-- icon id / first selected line: 3584 / 3584
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Hour-
----- HyperTalk script -----
on mouseDown
  put 1 into count
  get field AlarmTime
  convert it to dateItems
  repeat until the mouse is up
    subtract 1 from item 4 of it
    if item 4 of it < 0 then
      put 23 into item 4 of it
    end if
    put it into NewDate
    convert NewDate to abbrev Date
    put NewDate into field Date
    put it into NewTime
    convert NewTime to short time
    put NewTime into field Time
    add 1 to count
  end repeat
  convert it to seconds
  put it into field AlarmTime
  checkAlarm
end mouseDown



-- part 59 (field)
-- low flags: 80
-- high flags: 0000
-- rect: left=212 top=26 right=42 bottom=330
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 4
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: AlarmTime


-- part 60 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=321 top=276 right=299 bottom=421
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Delete Alarm
----- HyperTalk script -----
on mouseUp
  go to stack "HyperAlarm Help 1.1"
  go to first card of bkgnd "Register"
end mouseUp



-- part 64 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=344 top=240 right=265 bottom=375
-- title width / last selected line: 0
-- icon id / first selected line: 30557 / 30557
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseUp
  visual effect wipe up
  go to first card
end mouseUp



-- part 65 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=439 top=240 right=264 bottom=471
-- title width / last selected line: 0
-- icon id / first selected line: 26865 / 26865
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
  visual effect wipe down
  go to last card
end mouseUp



-- part 66 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=73 top=276 right=298 bottom=173
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Alarm
----- HyperTalk script -----
on mouseUp
  go to stack "HyperAlarm Help 1.1"
  go to first card of bkgnd "Register"
end mouseUp



-- part 67 (field)
-- low flags: 80
-- high flags: 0000
-- rect: left=241 top=89 right=107 bottom=267
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 4
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Expired


-- part 68 (button)
-- low flags: 00
-- high flags: C005
-- rect: left=242 top=86 right=100 bottom=315
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Expired


-- part 71 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=157 top=233 right=264 bottom=196
-- title width / last selected line: 0
-- icon id / first selected line: 25002 / 25002
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  closeAlarms
  go to first card of stack "HyperAlarm Help 1.1"
end mouseUp




-- part 72 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=32 top=27 right=42 bottom=209
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 4
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Today


-- part 73 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=192 top=309 right=329 bottom=306
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Disable Alarms
----- HyperTalk script -----
on mouseUp
  global Alarm
  put empty into Alarm
  visual effect zoom open
  pop card
end mouseUp



-- part 75 (button)
-- low flags: 00
-- high flags: C005
-- rect: left=242 top=100 right=114 bottom=332
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: AutoReset
----- HyperTalk script -----
on mouseUp
  if hilite of me is true then
    set hilite of me to false
    put false into field AutoReset
    hide bkgnd button "Do a reset"
    hide field AMonth
    hide field ADay
    hide field AYear
    hide field AHour
    hide field AMinute
  else
    set hilite of me to true
    put true into field AutoReset
    show bkgnd button "Do a reset"
    show field AMonth
    show field ADay
    show field AYear
    show field AHour
    show field AMinute
  end if
end mouseUp



-- part 76 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=457 top=43 right=59 bottom=501
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: AMonth


-- part 77 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=457 top=58 right=74 bottom=501
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ADay


-- part 78 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=457 top=73 right=89 bottom=501
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: AYear


-- part 79 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=457 top=88 right=104 bottom=501
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: AHour


-- part 80 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=245 top=112 right=124 bottom=257
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 4
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: AutoReset


-- part 81 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=462 top=24 right=40 bottom=506
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: CardNumber


-- part 82 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=197 top=276 right=298 bottom=297
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Do a reset
----- HyperTalk script -----
on mouseUp
  if hilite of bkgnd button AutoReset is true then
    resetAlarm
  else
    beep
  end if
end mouseUp



-- part 83 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=415 top=109 right=121 bottom=438
-- title width / last selected line: 0
-- icon id / first selected line: 16692 / 16692
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Minute+
----- HyperTalk script -----
on mouseDown
  put 1 into count
  get field AlarmTime
  convert it to dateItems
  repeat until the mouse is up
    if count = 5 then
      subtract ((item 5 of it) mod 5) from item 5 of it
      add 5 to item 5 of it
    else
      if count > 5 then
        add 5 to item 5 of it
      else
        add 1 to item 5 of it
      end if
    end if
    if item 5 of it > 59 then
      put 0 into item 5 of it
    end if
    put it into NewDate
    convert NewDate to abbrev Date
    put NewDate into field Date
    put it into NewTime
    convert NewTime to short time
    put NewTime into field Time
    add 1 to count
  end repeat
  convert it to seconds
  put it into field AlarmTime
  checkAlarm
end mouseDown



-- part 84 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=437 top=109 right=121 bottom=458
-- title width / last selected line: 0
-- icon id / first selected line: 3584 / 3584
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Minute-
----- HyperTalk script -----
on mouseDown
  put 1 into count
  get field AlarmTime
  convert it to dateItems
  repeat until the mouse is up
    if count > 5 then
      subtract ((item 5 of it) mod 5) + 5 from item 5 of it
    else
      subtract 1 from item 5 of it
    end if
    if item 5 of it < 0 then
      put 59 into item 5 of it
    end if
    put it into NewDate
    convert NewDate to abbrev Date
    put NewDate into field Date
    put it into NewTime
    convert NewTime to short time
    put NewTime into field Time
    add 1 to count
  end repeat
  convert it to seconds
  put it into field AlarmTime
  checkAlarm
end mouseDown



-- part 85 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=457 top=103 right=119 bottom=501
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: AMinute